home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / float.st < prev    next >
Text File  |  1986-10-19  |  2KB  |  95 lines
  1. Class Float :Number
  2. [
  3.     = aNumber
  4.         ^ <primitive 6 self aNumber>
  5.             ifTrue:  [<primitive 66 self aNumber>]
  6.             ifFalse: [super = aNumber]
  7. |
  8.     < aNumber
  9.         ^ <primitive 6 self aNumber>
  10.             ifTrue:  [<primitive 62 self aNumber>]
  11.             ifFalse: [super < aNumber]
  12. |
  13.     > aNumber
  14.         ^ <primitive 6 self aNumber>
  15.             ifTrue:  [<primitive 63 self aNumber>]
  16.             ifFalse: [ super > aNumber]
  17. |
  18.     + aNumber
  19.         ^ <primitive 6 self aNumber>
  20.             ifTrue:  [<primitive 60 self aNumber>]
  21.             ifFalse: [super + aNumber]
  22. |
  23.     - aNumber
  24.         ^ <primitive 6 self aNumber>
  25.             ifTrue:  [<primitive 61 self aNumber>]
  26.             ifFalse: [super - aNumber]
  27. |
  28.     * aNumber
  29.         ^ <primitive 6 self aNumber>
  30.             ifTrue:  [<primitive 68 self aNumber>]
  31.             ifFalse: [super * aNumber]
  32. |
  33.     / aNumber
  34.         ^ <primitive 6 self aNumber>
  35.             ifTrue:  [<primitive 69 self aNumber>]
  36.             ifFalse: [super / aNumber]
  37. |
  38.     ^ aNumber
  39.         ^ <primitive 6 self aNumber>
  40.             ifTrue:  [<primitive 88 self aNumber>]
  41.             ifFalse: [super raisedTo: aNumber]
  42. |
  43.     arcCos
  44.         ^ Radian new: <primitive 85 self>
  45. |
  46.     arcSin
  47.         ^ Radian new: <primitive 84 self>
  48. |
  49.     arcTan
  50.         ^ Radian new: <primitive 86 self>
  51. |
  52.     asFloat
  53.         ^ self
  54. |
  55.     asString
  56.         ^ <primitive 78 self>
  57. |
  58.     ceiling
  59.         ^ <primitive 73 self>
  60. |
  61.     coerce: aNumber
  62.         ^ aNumber asFloat
  63. |
  64.     exp
  65.         ^ <primitive 79 self>
  66. |
  67.     floor
  68.         ^ <primitive 72 self>
  69. |
  70.     fractionPart
  71.         ^ <primitive 76 self>
  72. |
  73.     gamma
  74.         ^ <primitive 77 self>
  75. |
  76.     integerPart
  77.         ^ <primitive 75 self>
  78. |
  79.     ln
  80.         ^ <primitive 70 self>
  81. |
  82.     radix: aNumber
  83.         ^ <primitive 89 self aNumber>
  84. |
  85.     rounded
  86.         ^ <primitive 72 (self + 0.5)>
  87. |
  88.     sqrt
  89.         ^ <primitive 71 self>
  90. |
  91.     truncated
  92.         ^ (self < 0.0)  ifTrue:  [<primitive 73 self>]
  93.                 ifFalse: [<primitive 72 self>]
  94. ]
  95.